home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
TPUG - Toronto PET Users Group
/
TPUG Users Group CD
/
TPUG Users Group CD.iso
/
COMAL
/
T-COMAL Today
/
(k)tf.d64
/
func.loadcompact
< prev
next >
Wrap
Text File
|
2009-01-03
|
302b
|
14 lines
0010 //
0020 ╞╒╬├ LOADCOMPACT(NAME$) ├╠╧╙┼─
0030 ╒╙┼ COMPACTOR
0040 ╘╥┴╨
0050 ╧╨┼╬ ╞╔╠┼ 147,NAME$,╥┼┴─
0060 LOAD'COMPACT(147)
0070 ├╠╧╙┼ ╞╔╠┼ 147
0080 ╥┼╘╒╥╬ 0
0090 ╚┴╬─╠┼╥ // RETURN ERROR CODE
0100 ├╠╧╙┼ ╞╔╠┼ 147
0110 ╥┼╘╒╥╬ ┼╥╥
0120 ┼╬─╘╥┴╨
0130 ┼╬─╞╒╬├ LOADCOMPACT